home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / card_3624.txt < prev    next >
Text File  |  1990-04-09  |  9KB  |  407 lines
  1. -- card: 3624 from stack: in
  2. -- bmap block id: 4490
  3. -- flags: 0000
  4. -- background id: 2649
  5. -- name: Display
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=62 top=85 right=108 bottom=204
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card "Automation"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=62 top=115 right=138 bottom=204
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: New Button
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to card "Sorting"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=61 top=147 right=170 bottom=203
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: New Button
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   go to card "HotKeys"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 4 (button)
  66. -- low flags: 00
  67. -- high flags: 0000
  68. -- rect: left=61 top=180 right=203 bottom=203
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: New Button
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   go to card "Display"
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 5 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=61 top=211 right=234 bottom=203
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: New Button
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   go to card "General"
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 8 (button)
  104. -- low flags: 00
  105. -- high flags: 2006
  106. -- rect: left=256 top=132 right=150 bottom=368
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: New Button
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   set the hilite of card button 7 to FALSE
  118.   if the hilite of me is true then
  119.     set the hilite of me to true
  120.   end if
  121.   set the hilite of me to true
  122. end mouseUp
  123.  
  124.  
  125.  
  126.  
  127. -- part 9 (button)
  128. -- low flags: 00
  129. -- high flags: 6006
  130. -- rect: left=256 top=148 right=166 bottom=368
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: New Button
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   set the hilite of card button 6 to FALSE
  142.   if the hilite of me is true then
  143.     set the hilite of me to true
  144.   end if
  145.   set the hilite of me to true
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 10 (button)
  151. -- low flags: 00
  152. -- high flags: 2000
  153. -- rect: left=315 top=286 right=308 bottom=377
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: OK
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   go card SLBnames
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 11 (button)
  170. -- low flags: 00
  171. -- high flags: 2000
  172. -- rect: left=383 top=286 right=308 bottom=445
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: OK
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   go to card "SLBnames"
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 12 (field)
  189. -- low flags: 01
  190. -- high flags: 0004
  191. -- rect: left=263 top=80 right=100 bottom=341
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Produ
  200. ----- HyperTalk script -----
  201. on mouseDown
  202.   put line 1 of card field "Produ" into zapper
  203.   put "Chicago ,Geneva ,Helvetica ,Mobile ,Monaco ,Optima ,Palatino ,Times" into MENU
  204.  
  205.  
  206.  
  207.   Get HPopupMenu(menu,0,82,280)
  208.  
  209.  
  210.   if it is not zero then
  211.  
  212.     Put Item 1 of it into TheLine
  213.     if TheLine is not empty then
  214.       put theLine into card field "Produ"
  215.  
  216.     else
  217.       put zapper into card field "Produ"
  218.     end if
  219.  
  220.   end if
  221.  
  222. end mouseDown
  223.  
  224.  
  225.  
  226. -- part 13 (button)
  227. -- low flags: 00
  228. -- high flags: 2006
  229. -- rect: left=299 top=53 right=74 bottom=336
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: New Button
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   set the hilite of card button 11 to FALSE
  241.   set the hilite of card button 12 to FALSE
  242.   if the hilite of me is true then
  243.     set the hilite of me to true
  244.   end if
  245.   set the hilite of me to true
  246.  
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 14 (button)
  252. -- low flags: 00
  253. -- high flags: 2006
  254. -- rect: left=339 top=53 right=74 bottom=376
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: New Button
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   set the hilite of card button 10 to FALSE
  266.   set the hilite of card button 12 to FALSE
  267.   if the hilite of me is true then
  268.     set the hilite of me to true
  269.   end if
  270.   set the hilite of me to true
  271.  
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part 15 (button)
  277. -- low flags: 00
  278. -- high flags: 6006
  279. -- rect: left=379 top=53 right=74 bottom=416
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: New Button
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   set the hilite of card button 10 to FALSE
  291.   set the hilite of card button 11 to FALSE
  292.   if the hilite of me is true then
  293.     set the hilite of me to true
  294.   end if
  295.   set the hilite of me to true
  296.  
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 16 (button)
  302. -- low flags: 00
  303. -- high flags: 2006
  304. -- rect: left=257 top=196 right=213 bottom=367
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: New Button
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   set the hilite of card button 14 to FALSE
  316.   set the hilite of card button 15 to FALSE
  317.   set the hilite of card button 16 to FALSE
  318.   if the hilite of me is true then
  319.     set the hilite of me to true
  320.   end if
  321.   set the hilite of me to true
  322. end mouseUp
  323.  
  324.  
  325.  
  326.  
  327. -- part 17 (button)
  328. -- low flags: 00
  329. -- high flags: 6006
  330. -- rect: left=257 top=213 right=230 bottom=367
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 1
  334. -- font id: 0
  335. -- text size: 12
  336. -- style flags: 0
  337. -- line height: 16
  338. -- part name: New Button
  339. ----- HyperTalk script -----
  340. on mouseUp
  341.   set the hilite of card button 13 to FALSE
  342.   set the hilite of card button 15 to FALSE
  343.   set the hilite of card button 16 to FALSE
  344.   if the hilite of me is true then
  345.     set the hilite of me to true
  346.   end if
  347.   set the hilite of me to true
  348. end mouseUp
  349.  
  350.  
  351.  
  352.  
  353. -- part 18 (button)
  354. -- low flags: 00
  355. -- high flags: 2006
  356. -- rect: left=257 top=231 right=248 bottom=367
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: New Button
  365. ----- HyperTalk script -----
  366. on mouseUp
  367.   set the hilite of card button 13 to FALSE
  368.   set the hilite of card button 14 to FALSE
  369.   set the hilite of card button 16 to FALSE
  370.   if the hilite of me is true then
  371.     set the hilite of me to true
  372.   end if
  373.   set the hilite of me to true
  374. end mouseUp
  375.  
  376.  
  377.  
  378.  
  379. -- part 19 (button)
  380. -- low flags: 00
  381. -- high flags: 2006
  382. -- rect: left=257 top=248 right=265 bottom=367
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: New Button
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   set the hilite of card button 13 to FALSE
  394.   set the hilite of card button 14 to FALSE
  395.   set the hilite of card button 15 to FALSE
  396.   if the hilite of me is true then
  397.     set the hilite of me to true
  398.   end if
  399.   set the hilite of me to true
  400. end mouseUp
  401.  
  402.  
  403.  
  404.  
  405. -- part contents for card part 12
  406. ----- text -----
  407. Mobile